home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / UserCode / otherMenu.tcl < prev    next >
Text File  |  1996-08-15  |  501b  |  18 lines
  1. #===========================================================================
  2. # Calling OtherMenu AEvent.  Requires OtherMenu version 1.4 or later.
  3. #         -- Mark Nagata
  4.  
  5. proc OMEvent {filler fname} {
  6.     global HOME
  7.     
  8.     regexp {[^:]+} $HOME disk
  9.     set path "$disk:System Folder:OtherMenu Folder:Externals:"
  10.     append path $fname
  11.     AEBuild -r 'ALFA' *Men *Men "----" [makeAlis $path]
  12. }
  13.  
  14.  
  15. bind 'm' <zs> {OMEvent -- "Memory Map"}
  16. bind 'i' <zs> {OMEvent -- "Files:File InfoI"}
  17. bind 'p' <zs> {OMEvent -- "Put AwayI"}
  18.